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abstract 

the pdp-15 high speed punch test is designed to test and verity 
the operational status of the punch control logic. and the 
mechanical functions of the punch, the program is separated 
t n three parts, the first part is a series of five tests on 
the punch control logic, part two is a series of nine t£sts 

ON ThE PUNCH ITSELF. AND PART THREE IS A READ VERIFICATION 
CHECK ON THE PUNCHED TAPE. PROVISION IS MADE To CONTlNuOUSLV 
LOOP ON THREE OF THE SIX PUNCH CONTROL TESTS. AND ANY One OF THE 

punch data tests, 
requirements 



A STANDARD PDP-15 EQUIPPED «I T H A HjGH SPEED PUNCH AND HIGH 
SPEED READER. 

STORAGE 

THE PROGRAM OCCUPjES 4735 <OCTAl) WORDS OF CORE MEMORY FROM 
LOCATION TO 4735. 

PRELIMINARY PROGRAMS 

— V — — — — — — — — — — — — — — — — _ 

THE PDP-15 HIGH SPEED BINARY LOADER MUST BE IN CORE MEMORY, 

3, LOADING PROCEDURE 

— « — — — — — — — *" " — — — ^ — — 

A, PLACE THE BINARY TAPE IN THE READER, 

B, SET THE ADDRESS SWITCHES TO 17700, 

C, PLACE BANK MODE SWITCH ON A 1, 

D, PRESS I/O RESET, AND THEN READ-IN. 

E, AT THE COMPLETION OF LOADING REMOVE THE TAPE FROM THf READER, 

4. STARTING PROCEDURE 

CONTROL SWITCH SETTINGS 

ALL ACS ON A 0. 
STARTING ADDRESSES 

CONTROL LOGIC TESTS - 200, 
DATA CHECK TESTS - 1000. 
VERIFY PUNCH TAPE - 3400, 



RESTARTING ADDRESSES 



RESTARTING ADDRESSES FOR INDIVIDUAL TESTS M A Y BE FOUND IN 
TABLE 2, APPEARING AT THE ENO OF THIS DOCUMENT. 

PROGRAM ACTION 



STARTING FROM 200, THE PROGRAM WILL EXECUTE CONTROL. LOGIC 
TESTS 1 THROUGH 4 IN SEQUENCE USING THE IOT PSA, AND THEN REPEAT 
TESTS 2 THROUGH 4 USING THE IOT PSB. AFTER COMPLETING TEST 
4 THE MESSAGE 'REMOVE TAPE' WILL BE TYPED OUT AND A HALT 
WILL OCCUR WITH THE M0=523, AT THIS POINT THE TAPE IS TO BE 
REMOVED FROM THE PUNCH. PRESS CONTINUE AND THE 'NO-TAPE' 
LOGIC IS TESTED. IF THE »NO-T A PE» LOGIC IS OK. A 'REPLACE 
TAPE' MESSAGE IS TYPED OUT AND THE PROGRAM WILL HALT WITH 
THE M0 = 54 7 . 

AFTER THE TAPE IS REPLACED, PRESS CONTINUE TO EXECUTE THE DATA 

CH n? K J^M?'„ J HERE ARE NlNE DaTa TESTS IN ALL. EACH PUNCHING 
A DIFFERENT PATTERN. AS ONE TEST IS COMPLETED. THE NEXT TEST 
IS AUTOMATICALLY STARTED. WHEN TEST 9 IS COMPLETED, BLANK 
LEADER IS PUNCHED AND THE PROGRAM HALTS WITH THE M0=2426. 
THE PUNCHED TAPE CAN THEN BE VERIFIED BY PLACING IT IN THE 
READER AND PRESSING CONTINUE. IF NO ERRORS ARE FOUND A «DONE' 
MESSAGE JS TYPED OUT AND THE PROGRAM WILL HALT WITH THE 
M0=4427. PRESS CONTINUE TO RESTART THE PUNCH DATA CHECKS, 



operating procedures 

operator action 

a. place the Tape in the reader. 

8. place all acs on a 0, and set the address switches to 17700, 

c, place eank mode switch on a 1, 

d, press i/o reset, and then read-in. 

e, after completion of load set the aodress switches to 200, 

f, press i/o reset, and then start. if no errors* the 
the program will halt with mo = 523, 

g, remove the tape from the punch. 

h, press continue. if no errors, the program will halt with 

MO = *47. 

I, PRESS CONTINUE. THE DATA CHECKS ARE THEN PERFORMED NEXT 
AND THE PROGRAM WILL HALT WITH THE MO = 2426, 

J. REMOVE THE TAPE FROM THE PUNCH AND PLACE JT IN THE READER 
TO VERIFY THE TAPE. 

K, PRESS CONTINUC IF NO ERRORS ARE FOUND THE PROGRAM WILL 
HALT WITH THE MO » 4427, 

L. PRESS CONTINUE TO RESTART THE DATA CHECK TESTS. 



<5. CONT»D) 

DATA CHECK TESTS 



ACS FUNCTIONS FflR EACH OF TME Nl NE TESTS ARE! 
ACS FUNCTION 

1 (1) 'SCOPE MODE 

2(1) LOOP ON CURRENT TEST 

4 " 17 M * y BE USED TO VARY R*T£ OF PUNCHING 




ACS 2 ON A 1 WIll CAUSE THE CURRENT TEST TO BE REPEATED 
UNTIL STOPPED WITH PROGRAM STOP, PLACING ACS 2 ON A WH1.F 

VERIFY PUNCH TEST 

ACS FUNCTIONS FOR EACH OF THE NINE READ CHECKS ARE« 
ACS FUNCTION 



0<e) HALT AFTER EACH ERROR PRINTOUT 

0<1) CONTINUE AFTER EACH ERROR PRINTOUT 

2(e > NORMAL. READ 

2ll) REPEAT THE CURRENT READ CHECK 

ACS 2 ON A 1 WILL CAUSE THE CURRENT READ CHECK TO BE REPEATrn. 
FOR ANY ONE TEST TO BE REPEATED, PLACE THE PATTERN TO BE 
SeStiON^]^ READER AN ° REF£R T ° THE STARTING LOCATIONS IN 



(5. TJWT'D) 

OPERATING INSTRUCTIONS 

A. SET THE ADDRESS SWITCHES TO 1000, 

B. PRESS I/O RESETi AND THEN START. 

C. APPROXIMATELY 1-1/2 FT, OF LEADER WILL BE PUNCHED. THE 
LEADER IS BLANK EXCEPT FOR ONE FRAME OF ALL l'S, THIS 
FRAME IS REFERRED TO AS THE MARK CHARACTER. AND HAS 
NOTHING TO DO WITH THE INTERNAL OPERATION OF THE PROGRAM, 

0. THE PROGRAM WILL PUNCH EACH TEST IN SEQUENCE, 

E, WHEN TEST 9 HAS FINISHED. BLANK LEADER IS PUNCHED AND 
THE PROGRAM WILL HALT WITH THE MO = 2426. 

F, PLACE THE PUNCHED TAPE IN THE READER AND PRESS CONTINUE 
TO VERIFY THE TAPE. 

W. If NO tftR&Rf THE PROGRAM WILL HALT WITH THE MO * 4427, 

1, PRC8S CO-NTlMWC TO RESTART THE &ATA CHECKS, 



6 « ERRORS 

ERROR HALTS 

*Ll HALTS ARE nrcrDtDrn . 

utbCRIBED in TABLE 1. 

error printouts 

^M? S E K ~"E D "ILL CAUSE A, ERROR P RI N r 0UT 

TES V - ^oo D BA0 

N *x* xxx 

WHERE: ii - . 

N * TEST NUMBER (1 TNR0UGH 9) 

C00D ' WHAT ™ E °^ «*0 WAS EXP ECTE0 T0 BE 
BAD a THE DATA AS READ 
PRESSING CONTINUE km i ., , - „ 

' NC TAPE IN P UNCH , 

' NC MARK CHAR' 
THIS MESSAGE IS TVPrn rr T 

-.- Ms sis SsS-kkSL 



7< RESTRICTIONS 

STARTING RESTRICTIONS 

NONE. 

OPERATING RESTRICTIONS 

T r or.nrH TELETYPE. OR PUNCH MUST BE 
.my nf-VTCE OTHER THAN THE RE aDER ' I^hoTQ 
;Kn?0 OFF. TO AVOID UNWANTED INTERRUPTS. 

8 . MISCELLANEOUS 
EXECUTION T I*E 

waL REQUIRE APPROXIMATELY * "1*. 
APPLICATIONS - CONTROL LOGlC_TESTS 

SCOPE M ODE 
TO FOLLOW IS GIVEN BELOW. 



TEST # SCOPE 10T OPERATOR ACTION STARTING ADDRESS 



* 




PRESS 

START 


I/O RESET. THEN 


200 


s 


PSA 


PRESS 
START 


I/O RESET, THEN 


222 


2 


PSB 


PLACE 
227. 


700244 IN LOCATION 


224 


3 


PSA 


PLACE 
227, 


700204 IN LOCATION 


300 


3 


PSB 


PLACE 
227. 


700244 IN LOCATION 


300 


3A 


PCF 


PLACE 700204 OF 700244 
IN LOCATION 227. 


326 


4 




SCOPE TOR PUNCH INTER- 
RUPTING BEFORE IT IS 
SELECTED. 


400 



p SA SCOPE FOR NO INTERRUPT, 412 

PLACE 700204 IN LOCATION 
227, 

PS B SCOPE FOR NO INTERRUPT, 412 

PLACE 700244 IN LOCATION 
227, 

SCOPE FOR NO TAPE ALWAYS 500 
SET 



5 NO TAPE WILL NOT SET 

FAST 'SCOPE MODE LOOP' 



524 



A SEPARATE ROUTINE IS PROVIDED WHICH WILL PUNCH AN* CHARACTER 

S r ECI ^, E ?n BY A ? S 10 " 17, THE U00P USES PSA ONLY, BUT THIS MAY 

BE CHANGED BY INSERTING PSB (700244) INTO LOCATION 3102 

THE LOOP CONSISTS OF SIX INSTRUCTIONS. OF WHICH THE FIRST IS 

CAF . 

THE PURPOSE OF THE ROUTINE IS TO PROVIQE A VERY SHORT LOOP 
FOR -SCOPING' IF THE METHODS PREVIOUSLY DESCRIBED ARE NOT 
SU I TABLE i 



(8. CONT'D) 

INSTRUCTIONS! 

A. SET THE ADDRESS SWITCHES TQ 3100, 

B. PLACE ANY CHARACTER IN ACS 10-17, 

C. PRESS I/O RESET, AND 'HEN START. 

D. THE L°CP MAY BE HALTED WITH PROGRAM STOP. 

E. ACS 10-17 MAY BE CHANGED WHILE THE LOOP IS RUNNING. 
LOOPING ON CONTROL LOGIC TESTS 2-4 



TEST 2 THOUGH 4 MAY BE CONTINUOUSLY EXECUTED TO FACILITATE 
TESTING THE CONTROL LOGIC. 

LOOPING WITH EITHER THE PSA OR PSB IOT IS PROVIDED, 

TO LOOP ON TESTS 2 THROUGH 4 USING PSAS 

A, PLACE ACS 2 ON A 1. 

B. SET THE ADDRESS SWITCHES TO 220. 

c press i/o Reset, and then start, 

D, THE LOOP MAy BE HALTED WITH PROGRAM STOP. 
TO LOOP ON TEST 2 THROUGH 4 USING PSBl 

A, PLACE ACS 2 ON A 1. 

B, SET THE ADDRESS SWITCHES To 464 

C, PRESS I/O RESET, AND THEN START. 

D, THE LOOP MAy BE HALTED WITH PROGRAM STOP. 
APPLICATION - DATA CHECK TESTS 



VARIABLE P^NCH SPEED CONTROL 



acs 4 through 17 will provide speed control for all dat a check 
tests. with all 14 acs on a 1, the speed will be t he s l owest, 
normal speed is restored by placing acs 4 - 17 on a 0. 
any combination of the 14 switches may be used' and may be 
changed while the program is running. 



T !JL T f ST 15 0ES lGNED TO TEST THE FUNCTIONS Qf THE PUNCH 
CONTROL UOGIC WITH MINIMUM OPERATOR INTERVENTION, A 
«t2 PE h°^. IS lNCLUDED I* ™E PROGRAM TO AID IN MAKING ANY 
OTHER M E CHANICA L R TIMING ADJUSTMENTS NECESSARY, ? tJp CON- 
TROL LOGIC TESTS RUN, ANY REMAINING ERRORS wl L L BE IN The DATA 
PA ' NS • 

THE DATA CHECK TESTS ARE DESIGNED TO AIO IN HNOING MECHANICAL 

^, lLURE Mr ^ PUNCH ITSELF ' THERE ARE NINE 5!t! c!ec! A TMTS 
IN ALL. EACH PUNCHING A DIFFERENT PATTERN, 

TABLE 1 ERROR HALTS AND IDENTIFICATION FOR DATA CHECKS 
TEST NO. C (MO) TAG iDENTlFlCATjON 

1 221 PE01 PUNCH FLAG SET AFTER IOT OF 

700110. 

2 242 PA02 FLAG NOT SET AFTER PSA IOT, 



3 
3 
3 

4 

4 



242 


PA02 


245 


PB02 


311 


PA03 


312 


PB03 


434 


P05A 


436 


P05B 


424 


PA05 


425 


PB05 


515 


FLGNC 



FLAG NOT SET AFTER PSB IOT, 

FLAG DID NOT CLEAR USING PSA, 

FLAG DID NOT CLEAR USING PSB. 

PUNCH CAUSED ILLEGAL INTERRUPT, 

SPURIOUS INTERRUPT, TURN OFF 
I/O DEVICES OTHER THAN TTY. 
READER AND PUNCH, 

NO INTERRUPT USING PSA. 

NO INTERRUPT USING PSB. 

5 515 FLGNOT NO TAPE SET WITH TAPE ! N PUNCH, 

CHECK POWER SWITCH WIRING, 

5 541 MOFLG NO TAPE NOT SfT WITH NO TAPE 

IN PUNCH, CHECK WIRING ON 
PUNCH NO TAPE SWITCH. 

5 541 MOFLG NO TAPE NOT SET WITH POWER OFF, 

CHECK WIRING. 

5 523 PHLT10 REMOVE TAPE FROM PUNCH AND PRESS 

CONTINUE, 

5 547 HLT10A END OF NO TAPE TEST, PreSS 

CONTINUE TO START DATA CHECKS, 



(9. CONT'D) 

TABLE 1 (CONT'D! 



TEST NO. C (MO) TAG IDENTIFICATION 



2426 HALT AFTER COMPLETING OaTA 

CHECKS. PRESS CONTINUE TO 
READ THE TAPE. 

4427 HALT AFTER VERIFYING THE TAPE, 

PRESS CONTINUE TO RESTART DATA 
CHECKS. 

TABLE 2 ERROR HALTS AND IDENTIFICATION FOR REAQ CHECKS 

TEST NO. C (MO) TAG IDENTIFICATION 

1 4535 NO MARK CHARACTER READ* 

PRESS CONTINUE TO RESTART, 

1-9 4460 DATA ERROR, PRESS CONTINUE 

TO CONTINUE RE*D. 



10. 



TABLE 2 RESTARTING ADDRESS 



CONTROL LOGIC TESTS 



TEST 1 - 220 
TEST 2 - 222 
TEST 3 - 320 
TEST 3A - 330 
TEST 4 - 400 
TEST 5 - 5Z0 



ILLEGAL INSTRUCTION 

SET FLAG WITH PSA AND PSB 

CLEAR FLAG WITH PSA AND PSB 

CLEAR FLAG WITH PCF 

INTERRUPT TEST 

NO TAPE TEST 



DATA CHECK TESTS 



TEST 1 


1004 


TEST 2 


1100 


TEST 3 


1200 


TEST 4 


1300 


TEST 5 


1500 


TEST 6 


1700 


TEST 7 


2200 


TEST 8 


2300 


TEST 9 


2400 



skew test 
all zero test 
all channel test 
sliding '1' test 
sliding <0' test 

adjacent. channel test 
binary count (psa) 
3inary count (psb) 
random stall (0.377) 



(10. CONT'D) 



11, 



TEST 1 

TEST 2 

TEST 3 

TEST 4 

TEST 5 

TEST 6 

TEST 7 

TEST 8 

TEST 9 
LISTING 



READ VERIFICATION CHECKS 

3400 

3500 
3600 
3700 
4000 
4100 
4200 
4300 
4400 



READ SKEW TEST 

READ ALU ZERO TEST 

READ ALL l'S TEST 

READ SLIDING '1' TEST 

READ SLIDING '0' TEST 

READ ADJACENT CHANNEL 

READ BINARY COUNT <PS*> 

READ BINARY COUNT <PSB) 

READ RANDOM STALL TEST 
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PTPlS 



PTP15 



700406 
700401 
700402 
700004 
700201 
700202 
700204 
700244 
700101 
700102 
700104 
700112 
700144 



00000 




00000 


000000 


00001 


600001 


00002 


777777 


00003 


777777 


00004 


777777 


00005 


777777 


00006 


740040 


00011 




00011 


000000 


00016 




00016 


000000 


00017 


000000 



.TITLE PTP15 

/ 
/PDP-15 PAPER TAPE PyNCH DIAGNOSTIC 
/MAINOEC 15-D2DO0 

/COPYRIGHT AUG, 10, 1970, DIGITAL EQUIPMENT CORP. MAYNARD, MASS, 
/REVISED » SEPT. 1, 1971 
/PROGRAMMER; EARL Li BOUSE 

/ 

,ABS 
TLSs700406 
TSF'700401 

TCFs700402 
CLOFs700004 

PSF*700201 
PCF3700202 
PSA»700204 
PSB«700244 

RSFh700101 
RCF«700102 
RSA«700104 
RRB«700112 
R$B«700144 

/ 
/CONTROL SWITCH SETTINGS 

/ 

0, HALT AFTER ERROR TyPE OUT 

continue after error type out 
inhibit scope loop 
run -ssope loop 
normal punch 

1, repeat test 
delay for punch 



i. 
a, 
%, 
0. 



/AC SW0 

/AC SW0 

/AC swi 

MC SWI 

/AC SW2 

/AC SW2 

/AC SW4-17 * 
/ 
/ 

.LOC 


JMP 
LAW 
LAW 
LAW 
LAW 
XX 

,LOC 


,LOC 


.EJECT 



*1 
-1 

*-l 
^1 

11 

16 



/INOEX 11 

/INDEX 16 

/INDEX 17 
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P7P13 



PTP15 



002013 



/TESTli 



00200 


700004 


00201 


703302 


00202 


104475 


00203 


777776 


00204 


040013 


00205 


700110 


00206 


103225 


00207 


700201 


00210 


741000 


00211 


600217 


00212 


440013 


00213 


600205 


00214 


103153 


00215 


600205 


00216 


600222 


00217 


103153 


00220 


600205 


00221 


740040 



BGNPCH 



PFERR 
PE01 



ILLEGAL. 

,L°c 
/ 

CLOF 

CAF 

JMS 

LAW 

OAC 

700110 

JMS 

PSF 

SKP 

JMP 

IS2 

JMP 

JMS 

JMP 

JMP 

JMS 

JMP 

HLT 

.EJECT 



INSTRUCTION TEST 

200 



CRLF 
-2 

13 



STAL70 



PFERR 
13 

BGNPCH*5 

SCOPE 

BGNPCH+5 

TST2 

SCOPE 

BGNPCH*5 



/FALSE IOT 

/WAIT 

/TEST FOR FLAG SET 

/SHOULD SKIP 

/ERROR 



/CHECK FOR SCOPE LOOP 



/CHECK FO* SCOPING ERROR 
/ILLEGAL INSTRUCTION EXECUTED 
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P-TP15 



PTP15 







/TEST 


2, SET 
/ 

LAC 


PUNCH FLAG WITH PSA ANQ PSb 


00222 


200466 


TST2 


ckpsa 


/PSA JOT 


00223 


040227 




OAC 


PSAB 




00224 


777776 


PTST2 


LAW 


-2 




00225 


040013 




OAC 


13 




00226 


750000 




CLA 






00227 


000000 


PSAB 


/ 






/•TO PSA OR PSB 


00230 


10031? 




JMS 


STAL4 


/4 SEC STAL.L 


00231 


700201 




PSF 




/FLAG SHOULD BE SET 


00232 


600240 




JMP 


PEM3 


/E"RORi FUG NOT SET 


00233 


440013 




ISZ 


13 




00234 


600227 




JMP 


PSAB 




00235 


103153 




JMS 


SCOPE 


/CHECK FOR SCOPE MODE 


00236 


600227 




JMP 


PSAB 


/SCOPE LOOP 


00237 


600300 




JMP 


PTST3 


/EXIT 


00240 


103153 


PER3 


JMS 


SCOPE 




00241 


600227 




JMP 


PSAB 


/SCOPE MOOE 


00242 


200227 




LAC 


PSAB 




00243 


540466 




SAD 


CKPSa 




00244 


740040 


PA02 


HIT 




/FLAG NOT SETTING WIT 


00245 


740040 


PB02 


HLT 




/FLAG NOT SETTING WIT 


00246 


600227 




JMP 


PSAB 





.EJECT 
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PTP15 



PTP15 



/TEST 3, RESET PUNCH FLAG PSA.PSB And P CF 



00300 






.IOC 
> 


300 


00300 


400227 


PTST3 


/ 

XCT 


PSAB 


00301 


700201 




PSF 




00302 


600301 




JMP 


i-l 


00303 


400227 




XCT 


PSAB 


00304 


600314 




JMP 


0K3 


00305 


103153 




JMS 


SCOPE 


00306 


600300 




JMP 


PTST3 


00307 


200466 




LAC 


CKPSa 


00310 


540227 




SAO 


PSAB 


00311 


740040 


PA03 


HLT 




00312 


740040 


PB03 


HIT 




00313 


600300 




JMP 


PTST3 


00314 


103153 


0K3 


f 

JMS 


SCOPE 


00315 


600300 




JMP 


PTST3 


00316 


600326 




JMP 
/ 
STALL RC 
/ 




PTSf3A 






/4 SEC 


IUTINE 


00317 


000000 


STAL4 




00320 


777703 




LAW 


*75 


00321 


044701 




DAC 


BLKLMT 


00322 


103225 




JMS 


STAL70 


00323 


444701 




ISZ 


BLKLMT 


00324 


600322 




JMP 


t«2 


00325 


620317 




JMP» 
•EJECT 


STAL4 



/FIRST SET THE FLAG 



/FLAG SETi CLEAR WITH PSA,PSB 
/OK, FLAG CLEARED 
/ERROR, FLAG STILL SET 
/SCOPE LOOP 



/flag Did not clear using PSA 

/FUG DID NOT CLEAR USING PSB 
/Rt-EXECUTE 

/CHECK FOR SCOPE MODE 

/SCOPE MODE 

/EXIT 



/STALL 4 SIC 
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PTP5.5 







/CLEAR 


/ 

FLAG WITH PCF 


00326 


400227 


PTST3A 


XCT 


PSAB 


00327 


700201 




PSF 




00330 


600327 




JMP 


,-1 


00331 


700202 




PCF 




00332 


700201 




PSF 




00333 


600337 




JMP 


0K3A 


00334 


103153 




JMS 


SCOPE 


00335 


600326 




JMP 


PTST3A 


00336 


740040 


PEB4 


HLT 




00337 


103153 


0K3A 


JMS 


SCOPE 


00340 


600326 




JMP 


PTST3A 


00341 


600400 




JMP 
/ 


PTST4 






/PUNCH 


/ 

INTERRUPT TEST 


00400 






• LOC 

/ 

LAC 


400 


00400 


200470 


PTST4 


JMP* 


00401 


040001 




DAC 


1 


00402 


700004 




CLOF 




00403 


703302 




CAP 




00404 


700042 




ION 




00405 


103225 




JMS 


STAL70 


00406 


103225 




JMS 


STAL70 


00407 


103225 




JMS 


STAL70 


00410 


103153 




JMS 


SCOPE 


0&4U 


600400 




JMP 


PTST4 


00412 


200471 


PSRINT 


I.AC 


JMP* 


00413 


040001 




DAC 


1 


00414 


703302 




CAP 




00415 


700042 




ION 




00416 


400227 




XCT 


PSAB 


00417 


100317 




JMS 


STAL4 


00420 


103153 




JMS 


SCOPE 


00421 


600412 




JMP 


PSRINT 


00422 


200466 




LAC 


CKPSA 


00423 


540227 




SAO 


PSAB 


00424 


740040 


PA05 


HLT 




00425 


740040 


PB05 


HLT 




00426 


600412 




JMP 
.EJECT 


PSRINT 



/SET FLAG 



/CLEAR PUNCH FLAG 

/OK, TLAG CLEARED 

/CHECK FOR SCOPE LOOP 

/SCOPE MODE 

/E«ROR| PCF DID NOT CLEAR FLAG 

/SCOPE MODE 
/EXIT, NEXT TEST 



/W*IT 210 MS FOR ILLEGAL INTERRUPT 



/CHECK FOR SCOPE MODE 



/GET PUNCH GOING 

/ERROR, NO INTERRUPT OCCURRED 

/SCOPE 



/N° INTERRUPT USING PSA 
/NO INTERRUPT USING PSB 
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PTP15 







/INTERRUPT SERVICE ROUTINE 


00427 


103153 


ILLEG 


JMS 


SCOPE 


00430 


600400 




JMP 


PTST4 


00431 


700314 




I0RS 




00432 


742010 




RTL 




00433 


741100 




SPA 




00434 


740040 


P05A 


HIT 




00435 


700314 




IORS 




00436 


740040 


P05B 


HLT 




00437 


600400 




JMP 


PTST4 


00440 


103153 


tspplg 


/ 

JMS 


SCOPE 


00441 


600412 




JMP 


PSRINT 


00442 


700314 




IORS 




00443 


504711 




AND 


(100000 


00444 


740200 




SZA 




00445 


600451 




JMP 


OK4 


00446 


700314 




IORS 




00447 


740040 


P05C 


HLT 




00450 


600412 




JMP 


PSRINT 


00451 


200446 


0K4 


/ 

LAC 


P05Ci-1 


00452 


040001 




DAC 


1 


00453 


700002 




I OF 




00454 


750004 




LAS 




00455 


742010 




RTL 




00456 


741100 




SPA 




00457 


600224 




JMP 


PTST2 


00460 


200467 




LAC 


CKPSB 


00461 


540227 




SAO 


PSAB 


00462 


600500 




JMP 


NgTAPE 


00463 


600223 




JMP 


PTST2»i 


00464 


200467 


PSBSRT 


LAC 


CKPSB 


00465 


600223 




JMP 


PTST2*1 


00466 


700204 


CKPSA 


/ 

700204 




00467 


700244 


CKPSB 


700244 




00470 


600427 


JMP5 


JMP 


ILLEG 


00471 


600440 


JMP6 


JMP 
.EJECT 


tspflg 



/run scope loop 

/see if punch flag is set 



/ERROR, PUNCH CAUSED ILLEGAL INTERRUPT 

/CAF DIDN'T CLEAR FLAG 

/I/O STATUS 

/SPURIOUS INTERT AC»I/0 STATUS 

/CONTINUE TO RE EXECUTE TEST 



/SCOPE MODE 

/M*SK PUNCH FLAG 

/MAKE SURE PUNCH CAUSED INTERRUPT 

/PUNCH FLAG UP 

/SPURIOUS INTERT, AC-I/O STTUS 



/TEST FOR .LOOP ON TESTS 2»4 



/LOOP 



/E^IT 

/ 09" PSB IOT 

/RESTART HERE IF LOOPING MJTH PSB 



/PSA 
/PSB 



PAGE 



PTP15 



PTP15 



/TEST 5. NO TAPE TEST 
/REMOVE ALL TAPE FROM PUNCH 



AFTER HALT AT LOCATION TAGGED PHLT10 



£0502 






,LOC 

/ 

CAF 


500 


00500 


703302 


NOTAPE 




00501 


777766 




LAW 


-12 


00502 


040551 




DAC 


WORK 


00503 


750000 




CLA 




00504 


700204 




PSA 




00505 


700201 




PSF 




00506 


600505 




JMP 


.«l 


00507 


700314 




IORS 




00510 


504712 




AND 


<40? 


00511 


741200 




SNA 




00512 


600516 




JMP 


OKNO 


00513 


103153 




JMS 


SCOPE 


00514 


600500 




JMP 


NOTAPE 


00515 


740040 


FLGNOT 


HLT 

/ 

ISZ 




00516 


440551 


OKNO 


WORK 


00517 


600503 




JMP 


N0T*PE*3 


00520 


103153 




JMS 


SCOPE 


00521 


600500 




JMP 


NOTAPE 


00522 


104506 




JMS 


REMTXT 


00523 


740040 


PHLT10 


HLT 




00524 


777766 




LAW 


«12 


00525 


040591 




DAC 


WORK 


00926 


703302 


TSFLG 


CAF 




00927 


750000 




CLA 




00530 


700204 




PSA 




00531 


700201 




PSF 




00532 


600531 




JMP 


,'i 


00933 


700314 




IORS 




00934 


504712 




AND 


(40? 


00535 


740200 




SZA 




00936 


600942 




JMP 


OKFLG 


00537 


103153 




JMS 


SCOPE 


00540 


600526 




JMP 


TSFLG 


00541 


740040 


NOFLG 


HLT 

/ 

ISZ 




00542 


440591 


OKFLG 


WORK 


00543 


600526 




JMP 


TSFLG 


00544 


103153 




JMS 


SCOPE 


00545 


600524 




JMP 


TSFLG"2 


00546 


104515 




JMS 


REPIXT 


00547 


740040 


HLT10A 


HLT 




00550 


601000 




JMP 
/ 




PNSKEW 


00551 


000000 


WORK 




00552 


000000 


WORK1 



.EJECT 





/test no tape fla 

/SEE IF FUG SET 
/OK. FLAG IS NOT SET 

/SCOPE LOOP 

/ERROR, no tape flag set 
/with tape in punch 

/test 10 tjmes 
/check for scope mode 

/ttpei remove tape 

/remove tape from punch, press 

/continue to test no tape flag 



/TEST FOR NO TAPE FLAG 



/ok, flag set 

/run scope mode 

/e"RORi no tape flag didn't set 



/test 10 times 
/scope mooe 

/TTPEI REPLACE TAPE 

/END OF NO TAPE TEST 

/HIT CONTINUE FOR PUNCH TEST 



PACE 8 



PTP15 



PTP15 



/SKEW TEST, PUNCH 512 ALTERNATE PATTERNS OF CHANNEL 1 
/AND CHANNEL S, 
/ 



01000 






,LOC 


1000 




01000 


103106 


PNSKEW 


JMS 


LEADER 


/PUNCH LEADER 


01001 
01002 


103137 
777000 




JMS 
LAW 


PNMARK 

"1000 


/punch the mark character 
/«*12 decimal 


01003 


044701 




DAC 


BLKLMT 




01004 


044702 




OAC 


BLKLM2 




01005 


204713 




LAC 


(1 


/CHANNEL X 


01006 


103121 




JMS 


PUNCH 




01007 


444701 




IS2 


BLKLMT 




01010 


601009 




JMP 


,-3 




01011 


204714 




LAC 


(200 


/CHANNEL 8 


01012 


103121 




JMS 


PUNCH 




01013 
01014 


444702 

601011 




ISZ 

JMP 


BLKLM2 
■ «3 


/CHECK FOR BLOCK 312 


01013 


103153 




JMS 


SCOPE 


/CHECK SCOPE MODE 


01016 


601002 




JMP 


PNSKEW*2 


/RUN SCOPE MOPE 


01017 


103165 




JMS 


REPEAT 




01020 


601002 




JMP 


PN9K£U*2 


/REPEAT TEST 


01021 


601100 




JMP 
/ 


PSACHK 


/RUN BASIC OAT* CHECK 






/BASIC 


/ 

DATA CHECKS 








/PUNCH 


1024 BLOCKS OF 2ER0ES 




01100 






.IOC 


1100 




01100 


776000 


PSACHK 


LAW 


-2000 


/-1024 DECIMAL 


01101 


044701 




OAC 


BLKLMT 


• ^ *r W "ill wm K 


01102 


750000 




CIA 






01103 


103121 




JMS 


PUNCH 


/PUNCH 2E R 0ES 


01104 
01109 


444701 
601102 




IS2 

JMP 


BLKLMT 
."3 


/CHECK FOR BLOCK 1024 


01106 


103153 




JMS 


SCOPE 


/CHECK FOR SCOPE MODE 


01107 


601102 




JMP 


PSACHK*2 


/RUN SCOPE MODE 


01110 


103163 




JMS 


REPEAT 


/CHECK FOR REPEAT 


01111 


601100 




JMP 


PSACHK 


/RUN REPEAT MODE 


01112 


601200 




JMP 
.■EJECT 


ALCHAN 


/PUNCH ALU CHANNEL TEST 



PAGE 



PTP15 



PTP15 







/PUNCH 


ALL CHANNELS 

1 




01200 






.LOC 

/ 

LAW 


1200 




0^200 


77600? 


ALCHAN 


-2000 


/-1024 DECIMAL 


01201 


044701 




OAC 


BLKLMT 




01202 


204715 




LAC 


{377 




01203 


103121 




JMS 


PUNCH 




01204 


444701 




ISI 


BLKLMT 




01205 


601202 




JMP 


,o 




01206 


103153 




JMS 


SCOPE 


/CHECK FOK SCOPE MODE 


01207 


601202 




JMP 


,»5 


/RUN SCOPE MODE 


01210 


103165 




JMS 


REPEAT 




01211 


601200 




JMP 


ALCHAN 


/REPEAT TEST 


01212 


601300 




JMP 

/ 


sldone 


/SLIDING ONE TEST 






/PUNCH 


/ 

A SLIDING ONE 




01300 






.LOC 

/ 

LAW 


1300 




01300 


776000 


SLDONE 


*2000 


/-1024 DECIMAL 


01301 


044701 




OAC 


BLKLMT 




01302 


204716 




LAC 


(RAL 




01303 


041311 




OAC 


OIRONE 




01304 


754002 




CLAICLLICML 




01305 


044673 




DAC 


STO«E 




01306 


777770 




LAW 


»1» 




01307 


044703 




DAC 


CHACNT 




01310 


204673 


SLOA 


LAC 


STOKE 




01311 


740010 


DI«ONE 


RAL 






01312 


044673 




OAC 


STO«E 




01313 


103121 




JMS 


PUNCH 




01314 


444701 




IS2 


BLKLMT 




01315 


601323 




JMP 


CK8X 




01316 


103153 




JMS 


SCOPE 


/CHECK SCOPE MODE 


01317 


601300 




JMP 


SLDONE 


/RUN SCOPE MODE 


01320 


103165 




JMS 


REPEAT 




01321 


601300 




JMP 


SLDONE 


/REPEAT TEST 


01322 


601500 




JMP 
.EJECT 


SLD*RO 


/StIDE ZERO TEST 



PAGE It 



PTPJ5 



PTP15 



01323 


444703 


01324 


601310 


01325 


201311 


01326 


544716 


01327 


601335 


01330 


204716 


01331 


041311 


01332 


777771 


01333 


044703 


01334 


601310 


01339 


204714 


01336 


044673 


01337 


204717 


01340 


041311 


01341 


601332 



CK8X 



01500 



01500 


776000 


01501 


044701 


01902 


777770 


01503 


044703 


01504 


204720 


01505 


044673 


01506 


103121 


01507 


444701 


01510 


601516 


01511 


103153 


01512 


601500 


01513 


103169 


01514 


601500 


01515 


601700 


01516 


444703 


01517 


741000 


01520 


601502 


01521 


204673 


01522 


744002 


01523 


740010 


01524 


601505 



CHCDIR 



/PUNCH 



SLOZRO 

SLOA0 



CHK0 



/ 




!SH 


CHACNT 


JMP 


SLDA 


LAC 


DIROME 


SAD 


(RAL 


JMP 


CHGDJR 


LAC 


(RAL 


DAC 


DIRONE 


LAM 


»7 


DAC 


CHACNT 


JMP 

/ 

LAC 


SLDA 


(200 


DAC 


STORE 


LAC 


(RAR 


DAC 


DIRONE 


JMP 

/ 

/ 


CHGDlR-3 




A SLIDING ZERO 


■ LOC 
/ 

LAW 


1500 


*2000 


DAC 


BLKLMT 


LAW 


»10 


DAC 


CHACNT 


LAC 


(376 


DAC 


STORE 


JMS 


PUNCH 


ISZ 


BLKLMT 


JMP 


CHK0 


JMS 


SCOPE 


JMP 


SLDZRO 


JMS 


REPEAT 


JMP 


SLOZRO 


JMP 


AOJCH 


/ 




ISZ 


CHACNT 


SKP 




JMP 


SLDA0 


LAC 


STORE 


STL 




ral 




JMP 


SLOA0*3 


.EJECT 





/CHECK FOR CHANNEL 8 



/W*S 1 SLIDING LEFTJ 

/yfs, Rotate right 

/NO i ROTATE LEfT 



/-1024 DECIMAL 

/store pattern 

/CHECK FOR BLOCK 1024 

/CHECK FO* SCOPE MODE 
/RUN SCOPE MODE 

/REPEAT TEST 
/APJACINT CHANNEL TEST 

/RESET PATTERN 
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PTP15 



PTP15 







/PUNCH 


ADJACENT 


CHANNELS 


01700 






,LOC 
/ 

LAW 


1700 


01700 


776000 


ADJCH 


-2000 


01701 


044701 




OAC 


BLKLMT 


01702 


204716 




LAC 


(RAL 


01703 


041741 




OAC 


PAT0IR*1 


01704 


777770 




LAW 


•10 


01709 


044703 




DAC 


CHACNT 


01706 


044704 




OAC 


PATCnT 


01707 


204720 




LAC 


(376 


01710 


044705 




DAC 


PATERN 


01711 


204715 


ADJ1 


LAC 


(377 


017*12 


044673 




OAC 


STO«E 


01713 


103121 




JMS 


PUNCH 


01714 


444701 




ISi 


BLKLMT 


01713 


601723 




JMP 


CKOROP 


01716 


103153 


ADJ2 


JMS 


SCOPE 


01717 


601700 




JMP 


ADJCH 


01720 


103165 




JMS 


REPEAT 


01721 


601700 




JMP 


ADJCH 


01722 


602200 




JMP 

/ 

ISI 


PABNRY 


01723 


444703 


CKOROP 


CHACNT 


01724 


601711 




JMP 


ADJl 


01725 


777770 




LAW 


•10 


01726 


044703 




OAC 


CHACnT 


01727 


204705 




LAC 


PATERN 


01730 


105121 




JMS 


PUNCH 


01731 


444701 




ISZ 


BLKLMT 


01732 


741000 




SKP 




01733 


601716 




JMP 


AOJ2 


01734 


444704 




ISZ 


PATCNT 


01735 


741000 




SKP 




01736 


601744 




JMP 


REVQIR 


01737 


204705 




LAC 


PATERN 


01740 


744002 


PATDlR 


STL 




01741 


740010 




PAL 




01742 


044705 




OAC 


PATERN 


01743 


601711 




JMP 
.EJECT 


ADJl 



/-1024 DECIMAL 



/PUNCH 8 CLOUMN'S ALL l'S 



/CHECK FO« 960 FRAMES 
/TEST Tq DROP A CHANNEL 
/CHECK FOR SCOPE LOOP 
/RUN SCOPE LOOP 

/REPEAT THE TEST 

/PUNCH BINARY COUNT TEST (PSA) 

/CHECK FOR 6 COLUMNS OF 377 



/RESET COL COUNT 



/TEST DONE 
/COUNT 6 COLUMNS 

/CHANCE PATTERN DIRECTION 



/PUNCH 7 MORE COL. OF 377 



PAGE 12 


PTP15 


PTP15 






01744 


201741 


REVDIR 


/ 
LAC 


PATPIR*1 


01743 


544717 




SAD 


(RAR 


01746 


601754 




JMP 


SHFTlT 


01747 


204717 




LAC 


<RAR 


01750 


041741 




OAC 


PATDJR*1 


01751 


777770 




LAW 


-10 


01752 


044704 




OAC 


PATCNT 


01753 


601711 




JMP 


AOJl 


01754 


204716 


shftlt 


LAC 


(RAL 


01755 


041741 




DAC 


PATDJR*! 


01796 


601751 




JMP 
/ 


.-5 






/PUNCH 


/ 

BINARY 


COUNT WJTH PSA 


02200 






,LOC 


2200 


02200 


776000 


PABNRY 


/ 

LAW 


-2000 


02201 


044701 




OAC 


BLKLMT 


02202 


144673 




D2M 


STORE 


02203 


444673 


PLUSl 


!SZ 


STORE 


02204 


204673 




LAC 


STORE 


02205 


504715 




AND 


(377 


02206 


103121 




JMS 


PUNCH 


02207 


444701 




ISH 


BLKLMT 


02210 


602203 




JMP 


PLUSl 


02211 


103153 




JMS 


SCOPE 


02212 


602200 




JMP 


PABNRY 


02213 


103165 




JMS 


REPEAT 


02214 


602200 




JMP 


PABNRY 


02215 


602300 




JMP 
.EJECT 


P8BNRY 



/WAS PATTERN SHIFTING RIGHT? 
/YES, SHIFT LEFT 
/NO, SHIFT RIGHT 



/-1000 DECIMAL 



/CHECK FOR SCOPE MODE 
/RUN SCOPE MODE 

/REPEAT TEST 

/PUNCH BINARY COUNT (PSB) 



PAGE 13 



PTP15 



PTP3.5 







/PUNCH 


BINARY 


COUNT WITH PSB 


02300 






,LOC 

/ 

LAW 


2300 


02300 


776000 


PBBNR* 


-2000 


02301 


044701 




OAC 


BLKUMT 


02302 


144673 




D2M 


STORE 


02303 


444673 


PLUSlB 


ISE 


STORE 


02304 


204673 




LAC 


STORE 


02305 


504715 




AND 


(377 


02306 


700244 




PSB 




02307 


700201 




PSF 




02310 


602307 




JMP 


.-1 


02311 


444701 




ISZ 


BLKUMT 


02312 


602303 




JMP 


PLUSlB 


02313 


103153 




JMS 


SCOPE 


02314 


602300 




JMP 


PBBNRY 


02319 


103165 




JMS 


REPEAT 


02316 


602300 




JMP 


PBBNRY 


02317 


602400 




JMP 
/ 


RANSTL 






/PUNCH 


/ 

RANDOM 


STALL ANO BLOCK 


02400 






• 1.0C 
/ 

LAW 


2400 


02400 


777100 


RANSTL 


-700 


02401 


044701 




DAC 


BLKUMT 


02402 


103174 




JMS 


RANGEN 


02403 


904721 




ANO 


<7 


02404 


740001 




CMA 




02409 


044674 




OAC 


BLSTOR 


02406 


750000 


NEWDAT 


CLA 




02407 


103121 




JMS 


PUNCH 


02410 


204715 




LAC 


(377 


02411 


103121 




JMS 


PUNCH 


02412 


444674 




ISZ 


BLSTOR 


02413 


602406 




JMP 


NEWDAT 


02414 


444701 




IS? 


BLKIMT 


02413 


741000 




SKP 




02416 


602421 




JMP 


CHKSTS 


02417 


102430 




JMS 


STALL 


02420 


602402 




JMP 
/ 

JMS 


RAN5TL*2 


02421 


103153 


CHKSTS 


SCOPE 


02422 


602402 




JMP 


RANSTL*2 


02423 


103165 




JMS 


REPEAT 


02424 


602400 




JMP 


RANSTL 


02425 


103106 




JMS 


LEADER 


02426 


740040 




HIT 




02427 


603400 




JMP 
.EJEC1 


ROSKEW 

If 



/-1024 DECIMAL 



/PUNCH BINARY 



/CHECK FOR SCOPE MODE 
/SCOPE MODE 

/REPEAT TEST 
/RANDOM STALL TEST 



LENGTHS WITH flXCD DATA PATTERN 



/RANDOM BLOCK LENGTHS 



/CHECK FOR SCOPE MODE 



/repeat test 

/punch trailer 

/test finished 

/hit continue to read tape 



PACE 14 



PTP15 



PTP15 







/ 

/RANDOM STALL 


ROUTINE 


02430 


000000 


STALL 






02431 


103174 




JMS 


RANCEN 


02432 


504722 




AND 


{7777 


02433 


740001 




CM 




02434 


044703 




OAC 


CHACNT 


02439 


777736 




LAW 


= 42 


02436 


040551 




OAC 


WORK 


02437 


440551 




ISZ 


WORK 


02440 


602437 




JMP 


.«! 


02441 


444703 




ISZ 


CHACNT 


02442 


602435 




JMP 


.'5 


02443 


622430 




JMP» 
/ 


STALL 






/PUNCH 


/ 

CHARACTER IN ACS 


03100 






.toe 

/ 

CAF 


3100 


03100 


703302 


PUNCHR 




03101 


750004 




LAS 




03102 


700204 




PSA 




03103 


700201 




P5F 




03104 


603103 




JMP 


.«! 


03109 


603100 




JMP 
/ 
LEADER 
/ 



PUNCHR 






/PUNCH 




0310.6 


000000 


LEADER 




.03107 


777470 




LAW 


»310 


03110 


044675 




DAC 


ledcnt 


03111 


103145 




JMS 


tnotap 


03112 


750000 




CLA 




03113 


700204 




PSA 




03114 


700201 




PSF 




03119 


603114 




JMP 


."1 


03116 


444675 




ISZ 


LE0CNT 


03117 


603111 




JMP 


,«6 


03120 


623106 




JMP« 
.EJECT 


LEADER 



/STALL IN INCREMENTS OF 100 USEC 



10-17 



/SET UP COUNTER 



/PUNCH ALPHA 
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PTP15 



PTP15 







/PUNCH 


ROUTINE 
/ 






03121 


000000 


PUNCH 




03122 


044676 




DAC 


DATSTR 


03123 


103143 




JMS 


TNOTAP 


03124 


750004 




LAS 




03123 


304723 




AND 


{37777 


03126 


740001 




CMA 




03127 


040531 




DAC 


WORK 


03130 


440551 




ISZ 


WORK 


03131 


603130 




JMP 


.-1 


03132 


204676 




LAC 


DATSTR 


03133 


700204 




PSA 




03134 


700201 




PSF 




03135 


603134 




JMP 


.-1 


03136 


623121 




JMP» 
/ 


PUNCH 






/PUNCH 


/ 

AN ALL ! 
/ 



L t S MARK CHARACTER 


03137 


000000 


PNMARK 




03140 


204713 




LAC 


(377 


03141 


700204 




PSA 




09142 


700201 




PSF 




03143 


603142 




JMP 


.•I 


03144 


623137 




JMP« 
.EJECT 


PNMARK 



/save Data 

/test for no tape 

/SPEED CONTROL 



/DATA 



PACE 16 



PTP15 



PTP15 



/TEST FOR NO TAPE IN PUNCH 
/ 



03145 


000000 


TNOTAP 







03146 


700314 




IORS 




03147 


504712 




AND 


(400 


03150 


740200 




SZA 




03151 


603205 




JMP 


PNOTAP 


03152 


623145 




JMP» 
/ 


TNOtAP 






/ 

/TEST FOR SCOPE 
/ 


MOPE, AC SW1 



03153 
03154 
03155 

03156 
03157 
03160 
03161 
03162 
03163 
03164 



09165 
03166 
03167 
03170 
03171 
03172 
03173 



03174 
03175 
03176 
03177 

03200 
03201 
03202 

03203 
03204 



777777 

044701 
044702 
750004 
740010 
741100 
623153 
443153 
623153 



750004 
742010 
741100 
623165 
443165 
623165 



000000 
344671 
344672 
044671 
750010 
344671 
344672 
044672 
623174 



/NO TAPE FLAG 
/T*PE OK 
/NO, EXIT 

/yes, Continue 



scope 

LAW -1 

DAC BLKLMT 

DAC BLKLM2 

LAS 

RAL 

SPA 

JMP» SCOPE 

IS! SCOPE 

JMP« SCOPE 

/ 

/ 
/TEST AC SW2 FOR REPEAT MOOE 

/ 
REPEAT 

LAS 

RTL 
SPA 

JMP» REPEAT 
ISZ REPEAT 
JMP« REPEAT 
/ 
/ 
/RANDOM NUMBER GENERATOR 
/ 



/SCOPE MODE? 

/YES 

/NO# CONTINUE 



/REPEAT MODE? 
/YES 

/NO, CONTINUE 



RANGEN 





TAP 

TAO 

DAC 

GLK 

TAD 

TAO 

DAC 

JMP» 

.EJECT 



RAN* 
RANB 

RANA 

RANA 
RANB 
RANB 
RANGEN 
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PTP13 



PTP15 







/TYPE " 


NO TAPE 
/ 
JMS 


IN PUNCH' 


03205 


104475 


PNOTAP 


CRIF 


03206 


203213 




LAC 


NTFLG 


03207 


104624 




JMS 


INOXil 


03210 


104475 




JMS 


crlf 


03211 


700402 




TCF 




03212 


740040 




HUT 
/ 








/ 

/CONSTANTS FOR 
/ 


NO TAPE Ti 


03213 


003213 


NTFlG 


t 




03214 


317316 




317316 




03215 


324240 




324240 




03216 


320301 




320301 




03217 


240305 




240305 




03220 


31*311 




316311 




03221 


320240 




320240 




03222 


316325 




316325 




03223 


310303 




310303 




03224 


000000 




000000 
/ 








/70 MS 


/ 

STALL. ROUTINE 

i 


03225 


000000 


STAL70 


f 






03226 


777772 




fAW 


• 6 


03227 


040551 




OAC 


WORK 


03230 


770000 




LAW 


^10000 


03231 


040552 




OAC 


WORKl 


03232 


440552 




!S2 


WORM 


03233 


603232 




JMP 


,«t 


03234 


440551 




ISi 


WORK 


03235 


603230 




JMP 


STAL70*3 


03236 


623225 




JMP» 
.EJECT 


STAL70 



/CARRIAGE RETURN LINEFEED 
/TEXT 'NO TAPE IN PUNCH' 



/0»N 

/Ti 

/PiA 

/ lE 

/Nil 

/Pi 

/NiU 

/HiC 



PACE 18 



PT?i5 



PTP15 



03400 



03400 


204713 


03401 


044677 


03402 


777200 


03403 


044701 


03404 


204715 


03405 


044700 


03406 


104431 


03407 


544700 


03410 


603414 


03411 


444701 


03412 


603406 


03413 


604532 


03414 


777000 


03415 


044701 


03416 


044702 


03417 


204713 


03420 


044700 


034Z1 


104431 


03422 


544700 


03423 


741000 


03424 


104437 


03425 


444701 


03426 


603421 


03427 


204714 


03430 


044700 


03431 


104431 


03432 


544700 


03433 


741000 


03434 


104437 


03435 


444702 


03436 


603431 


03437 


103165 


03440 


603414 


03441 


603500 



/READ ROUTINE 

/ 
/THIS SUBROUTINE IS USED T 
/WITH THE PUNCH TEST, THE 
/THE »SCOPE MODE AND REPEA 
/CORRECT READER SYNCjNC, 
/PUCE THE PUNCHED TaPE JN 
/BUNK LEADER, 

/ 

,LOC 3400 

/ 
/TEST 1 
/READ SKEW TEST 

/ 
ROSKEW 



RDMARK 



VERIFV THE TAPE PUNCHED 
TAPE MUST BE PUNCHED WITH 
T MODE' DISABLED TO ALLOW FOR 

THE READER ANY PLACE IN THE 



RDSK10 



SKEW1 



SKEWS 



LAC 


(1 


/TEST 4 


DAC 


TSTNO 




LAW 


-600 


/CNTR For BLANK LEADER 


DAC 


BLKLMT 




LAC 


(377 


/MARK CHAR, 


DAC 


OATA 




JMS 


READ 




SAO 


DATA 




JMP 


RDSK18 


/MARK CHAR,! START READ 


182 


BLKLMT 




JMP 


RDMARK 




JMP 

/ 


NOREAO 


/ERROR i NO MARK CHAR. 


/ 
LAW 


-1000 


/«*12 DEMCIMAL 


DAC 


BLKLMT 




DAC 


BLKLM2 




LAC 


(1 


/COLUMN l 


DAC 


DATA 


/•To GOOD OATA 


JMS 


HEAD 




SAD 

SKP 


DATA 


/COMPARE GOOD TO READ 0/ 


JMS 


RDRERR 


/READ ERROR 


ISZ 


BLKLMT 




JMP 


SKEWl 




L*C 


(200 


/COLUMN B 


DAC 


DATA 




JMS 


READ 




SAO 

SKP 


DATA 


/COMPARE DATA 


JMS 


RDRERR 


/DATA ERROR 


ISZ 


BLKLM2 




JMP 


SKEWS 




JMS 


REPEAT 


/CHECK DOR REPEAT MODE 


JMP 


RDSK18 


/REPEAT READ 


JMP 


RDZERO 


/READ ?ERO TEST 


.EJECT 
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PTP15 



PTP15 







/TEST 


2 










/READ 


BASIC DATA CHECK 




03500 






,LOC 
/ 

1 LAC 


350U 




03500 


204724 


RDZERC 


(2 


/TEST 2 


03901 


044677 




DAC 


TSTNO 




03502 


144700 




DIM 


DATA 


/REGISTER FOR GOOD DATA 


03503 


703302 




CAT 






03504 


776000 




LAW 


»2000 


/*1024 DECIMAL 


03505 


044701 




DAC 


BLKLMT 




03506 


104431 




JMS 


READ 


/READ DATA 


03507 


741200 




SNA 




/SHOULP BE ALL 0'S 


03510 


741000 




SKP 






035li 


104437 




JMS 


RDRERR 


/READ ERROR 


03512 


444701 




!SZ 


BLKLMT 




03513 


603506 




JMP 


, «5 


/READ NEXT COLUMN 


03514 


103165 




JMS 


REPEAT 


/CHECK FO" REPEAT MODE 


03515 


603500 




JMP 


RDZERO 


/REPEAT READ 


03516 


603600 


/TEST 


JMP 
/ 
/ 
3 


RDALL 


/READ ALL CHANNEL TEST 






/READ 


ALL CHANNEL TEST 




03600 






.IOC 

/ 

LAC 


3600 




03600 


204725 


RDALL 


(3 


/TEST 3 


33601 


04467? 




DAC 


TSTNO 




03602 


776000 




LAW 


= 2000 


/*1024 DECIMAL 


03603 


044701 




OAC 


BLKLMT 




03604 


204715 




LAC 


<377 




03605 


044700 




DAC 


DATA 




03606 


104451 


allcha 


i JMS 


READ 


/read Data 


03607 


544700 




SAP 


DATA 


/COMPARE OATA 


03610 


741000 




SKP 






03611 


104437 




JMS 


RDRERR 


/read error 


03612 


444701 




!SZ 


BLKLMT 




03613 


603606 




JMP 


ALL?hA 




03614 


103165 




JMS 


REPEAT 




03615 


603600 




JMP 


RDALL 


/REPEAT READ 


03616 


603700 




JMP 
.EJECT 


ROSLDi 


/read sliding one 
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-TPt5 



PTP15 







/TEST 


4 








/READ 


SLIDING 


•l» TEST 


03700 






,LOC 

* 


3700 


03700 


204726 


RDSLD1 


LAC 


(4 


03701 


044677 




DAC 


TSTNO 


03702 


776000 




LAW 


-2000 


03703 


044701 




DAC 


BLKLMT 


03704 


754002 




CLAJSTL 


03705 


044700 




DAC 


DATA 


03706 


777770 




LAW 


-*0 


03707 


044703 




OAC 


CHACNT 


03710 


204700 


RSLDA1 


LAC 


DATA 


03711 


740010 


SETDjR 


RAL 




03712 


044700 




OAC 


DATA 


03713 


104431 




JMS 


REAO 


03714 


544700 




SAO 


DATA 


03715 


741000 




SKP 




0371* 


104437 




JMS 


RORERR 


03717 


444701 




18! 


BLKLMT 


03720 


741000 




SKP 




03721 


603737 




JMP 


REPCHK 


03722 


444703 




Hi 


CHACNT 


03723 


603710 




JMP 


RSLOA1 


03724 


203711 




LAC 


SETOIR 


03725 


544716 




SAO 


(RAL 


03726 


603734 




JMP 


RE0DIR 


03727 


204716 




LAC 


(RAL 


03730 


0437H 




OAC 


SETOIR 


03731 


777771 


REIET 


LAW 


»7 


03732 


044703 




OAC 


CHACNT 


03733 


603710 




JMP 
/ 

LAC 


RSLDA1 


03734 


204717 


REDDJR 


(RAR 


03735 


0437H 




OAC 


SETOIR 


03736 


603731 




JMP 


RESET 


03737 


103165 


REPCHK 


JMS 


REPEAT 


03740 


603700 




JMP 


ROSLD1 


03741 


604000 




JMP 
.EJECT 


ROSLD0 



/TEST 4 
/-1024 DECIMAL 



/READ COLUMN 



/COMPARE TO GOOD DATA 

/E^IT, CHECK FOR REPEAT 
/CHECK FO" CHANNEL 8 
/ROTATE CHANNEL 

/WAS 1 SLIOINP LEFT? 
/YES, ROTATE RIGHT 
/N°i ROTATE LEFT 



/repeat reao 
/reao sliding eero 



PA8E 21 



PTP15 



PTP4S 







/TEST 5 












/READ SLIDING 


HERO TEST 




04000 






,LOC 
/ 

LAC 


4000 




04000 


204727 


RDSLO0 


(5 


/TEST 5 


04001 


044677 




DAC 


TSTNO 




04002 


776000 




LAW 


■ 2000 


/-1024 DECIMAL 


04003 


044701 




DAC 


BLKLMT 




04004 


777770 


RSLOA0 


LAM 


•10 




04005 


044703 




DAC 


CHACNT 




04006 


204720 




LAC 


(376 




04007 


044700 




DAC 


DATA 


/good Data 


04010 


104431 




JMS 


REAP 




040H 


544700 




SAD 


DATA 


/compare Data 


04012 


741000 




SKP 






04013 


104437 




JMS 


RDRERR 


/READ ERROR 


04014 


444701 




ISZ 


BLKLMT 




04015 


741000 




SKP 






04016 


604027 




JMP 


REPCK2 


/EXIT, CHECK FOR REPEAT 


04017 


444703 




JSZ 


CHACNT 


/CHECK FO* COLUMN 8 


04020 


741000 




SKP 






04021 


604004 




JMP 


RSLDA0 


/RESET PATTERN 


04022 


204700 




L*C 


DATA 




04*23 


744002 




STL 






04024 


740010 




RAL 






04A29 


504719 




A NO 


<377 




0402» 


604007 




JMP 
/ 

JMS 


RSLPA0*3 




04027 


103169 


REPCK2 


REfEAT 




04030 


604000 




JMP 


RQtLD0 


/REPEAT READ 


04031 


604100 




JMP 
.EJECT 


RDAPjC 


/READ ADJACENT CHANNEL TEST 
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PTP19 



PTP15 







/TEST 


6 










/READ 


ADJACENT 


CHANNEL TEST 




04100 






.UOC 
/ 

LAe 


41011) 




04100 


204730 


RDADjC 


(6 


/TEST 6 


04101 


044677 




OAC 


TSTNO 




04102 


776000 




LAW 


-2000 


/«1024 DECIMAL 


04103 


044701 




DAC 


BLKUMT 




04104 


204716 




LAC 


(RAL 




04105 


044147 




DAC 


PATRED*! 




04106 


777770 




LAW 


•10 




04107 


044703 




DAG 


CHACNT 




04110 
04111 


044704 
204720 




DAC 
LAC 


patgnt 

(376 


/READ 8 COLUMN'S ALL l'S 


04112 


044709 




OAC 


PATERN 




04113 


204715 


RADJi 


LAC 


(377 




04114 


044700 




OAC 


DATA 




04119 


104431 




JMS 


READ 




04116 
04117 


944700 
741000 




SAO 

SKP 


OATA 


/COMPARE READ TO GOOD OATA 


04120 


104437 




JMS 


RQRERR 


/READ ERROR 


04121 


444701 




!Si 


BLKUMT 




04122 


741000 




SKP 






04123 


604169 




JMP 


REPCK3 


/EXIT, CHICK FOR RCPEAT 


04124 
04129 


444703 
604113 




isa 

JMP 


CHACNT 
RADJi 


/CHECK PO» 8 COLUMNS OP 37 


04126 


777770 




LAM 


• 10 




04127 


044703 




OAC 


CHACNT 




04130 


204709 




LAC 


PATERN 




04131 


904715 




AND 


(377 




04132 


044700 




DAC 


DATA 




04133 


104431 




JMS 


READ 




04134 
04139 


944700 
741000 




SAD 
SKP 


DATA 


/COMPARE READ TO GOOD OATA 


04136 


104437 




JMS 


RDRERR 


/READ ERROR 


04137 


444701 




ISZ 


BLKUMT 


/DONE? 


04140 


741000 




SKP 




/NO 


04141 


604165 




JMP 


REPCK3 


/EXIT 


04142 
04143 


444704 
741000 




ISZ 

SKP 


PATCnT 


/COUNT e COLUMNS 


04144 
04149 


604192 
204709 




JMP 
LAC 


REVED 
PATERN 


/CHANGE PATTERN DIRECTION 


04146 


744002 


PATRED 


STL 






04147 


7404110 




RAL 






04190 


044709 




OAC 


PATERN 




04151 


604113 




JMP 
.EJECT 


RAOJl 





PACE 23 


PTP15 


PTP15 








04152 


204147 


REVREO 


/ 

LAC 


PATREO*l 




04153 


544717 




SAD 


(RAR 


/WAS PATTERN SHIFTING RIGHT 


04154 


604162 




JMP 


SHLEFT 


/yes, shift left 


04155 


204717 




LAC 


<RAR 


/NO, SHIFT RIGHT 


04156 


044147 




DAC 


PATRED*i 




04157 


777770 




LAW 


-10 




04160 


044704 




DAC 


PATCNT 




04161 


604113 




JMP 

/ 

LAC 


RADJl 




0*162 


204716 


SHUErT 


(RAL 




04163 


044147 




DAC 


PATRED»1 




04164 


604137 




JMP 

/ 

JMS 


,.5 




04165 


103163 


HEFCK3 


REPEAT 




04166 


604100 




JMP 


RDADJC 


/REPEAT READ 


04167 


604200 




JMP 
/ 


rdrsa 


/read binary count test 






/TEST 7 










/READ BINARY COUNT PUNCHED 


WITH PSA 


04200 






,LOC 
/ 

LAC 


4200 




04200 


204721 


RORSA 


(7 


/TEST 7 


04201 


044677 




DAC TSTNO 




04202 


776000 




LAW 


• 2000 


/-1024 DECIMAL 


04203 


044701 




DAC 


BLKLMT 




04204 


144700 




DIM 


DATA 




04203 


444700 


RPLUSl 


IS! 


DATA 




04206 


204700 




LAC 


DATA 




04207 


304713 




AND 


{377 




04210 


044700 




DAC 


DATA 




04211 


104431 




JMS 


REAP 


/read data 


04212 


344700 




SAO 


DATA 


/COMPARE READ TO GOOD DATA 


04213 


741000 




SKP 






04214 


104437 




JMS 


RDRERR 


/READ ERROR 


04215 


444701 




IS? 


BLKLMT 




04216 


604205 




JMP 


RPLUSl 


/CONTINUE 


04217 


103165 




JMS 


REPEAT 




04220 


604200 




JMP 


rdrsa 




04221 


604300 




JMP 
.EJECT 


RORSB 


/EXIT, READ BINARY COUNT 
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PTPJ.5 



PTP15 



04300 

04300 

04301 

04302 

04303 

04304 

04305 

04306 

04307 

04310 

04311 

04312 

04313 

04314 

04315 

04316 

04317 

04320 

04321 

04322 



/TEST 8 

/READ BINARV COUNT PUNCHED WITH PSB 



04400 
04401 
04402 
04403 
04404 
04409 
04406 
04407 
04410 
04411 
04412 
04413 
04414 
04415 
04416 
04417 
04420 

04421 
04422 



204731 
044677 

776000 

044701 

144700 

444700 

204700 

504732 

344714 

044700 

104431 

544700 

741000 

104437 

444701 

604305 

103165 

604300 

604400 



204733 

044677 

770415 

044701 

777777 

044700 

204700 

740001 

504715 

044700 

104431 

544700 

741000 

104437 

444701 

604406 

103165 

604400 

604423 



RORSB 



RPLUSB 



,LOC 

/ 

L.AC 

OAC 

LAW 

DAC 

OZM 

1S2 

LAC 

AND 

TAD 

DAC 

JMS 

SAD 

SKP 

JMS 

132 

JMP 

JMS 

JMP 

JMP 

/ 



4300 

(1(5 
TSTNO 

•2000 

BLKLMT 

OATA 

DATA 

DATA 

(77 

(200 

DATA 

READ 

DATA 

RDRERR 
BLKLMT 
RPLUSB 
REPEAT 
RORSB 

rdran 



/TEST 9 

/READ RANDOM STALL TEST 

,LOC 4400 

/ 



RDRAN 



RANI 



LAC 

DAC 

LAW 

DAC 

LAW 

OAC 

LAC 

CMA 

AND 

OAC 

JMS 

SAD 

SKP 

JMS 

ISZ 

JMP 

JMS 

JMP 

JMP 

.EJECT 



(11 

TSTNO 
-7363 

BLKLMT 
-1 

OATA 
DATA 

(377 

DATA 
READ 
OATA 

RORERR 

BLKLMT 

RANI 

REPEAT 

RDRAN 

READY 



/TEST 6 
/-1024 DECIMAL 



/READ COLUMN 

/COMPARE REAO TO GOOD DATA 

/READ ERROR 



/READ RANDOM STALL TEST 



/TEST 9 



/r$ao column 

/COMPARE READ TO COOO OATA 
/READ ERROR 



/TEST DONE 
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PTP15 



PTP15 







/SET UF 


' FOR ANOTHER TEST TAPE 
/ 
RSA 


04423 


700104 


READY 


04424 


700101 




RSF 


04425 


604424 




JMP .-1 


04426 


104537 




JMS TSTOK 


04427 


740040 




HUT 


04430 


601000 




JMP PNSKEW 
/ 






/ 

/REAO SUBROUTINE! EMT WITH D 

> 


04431 


000000 


READ 


9 




04432 


700104 




RSA 


04433 


700101 




rsf 


04434 


604433 




JMP ,n% 


04435 


700112 




RRB 


04436 


624431 




JMP» READ 
/ 






/PRINT 


/ 

DATA ERROR 
/ 



04437 


000000 


RDRERR 


04440 


044706 




OAC SAVOAT 


04441 


104462 




JMS TEXT 


04442 


104522 




JMS TAI 


04443 


204677 




LAC TSTNO 


04444 


344734 




TAD (2*0 


04449 


104664 




JMS TYRE 


04446 


104522 




JMS TAB 


04447 


760240 




LAW 240 


04450 


104664 




JMS TYRE 


04451 


204700 




LAC DATA 


04452 


£04641 




JMS OCTPRT 


04453 


104922 




JMS TAB 


04454 


700112 




RRB 


04455 


104641 




JMS OCTPRT 


04456 


750004 




LAS 


04457 


740100 




SMA 


04460 


740040 




HLT 


04461 


624437 




JMP* RDRERR 
, CJECT 



/CLEAR TAPE FROM READER 



/TYPE DONE 

/HIT CONTINUE TQ PUNCH NEXT TAPE 



/STORE BAD DATA 

/TYPE OUT ERROR HEADER 

/TYPE TAB 



/type tab 

/TYPE SPACE 



/PHINT GOOD DATA 
/TYPE TAB 

/P"INT BAD DATA 

/AC SW0-1? 
/NO, HALT 
/YES, CONTINUE 
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PTP15 


PTP15 










/PRINT 


' ERROR 


HEADER 


04462 


000000 


TEXT 


/ 






04463 


104475 




JMS 


CRlF 


04464 


104475 




JMS 


CRI.F 


04465 


204553 




LAC 


TSTfYP 


04466 


104624 




JMS 


INDXH 


04467 


204562 




LAC 


GOOD 


04470 


104624 




JMS 


INOXil 


04471 


204567 




LAC 


BAD 


04472 


104624 




JMS 


INOXH 


04473 


104475 




JMS 


CRLF 


04474 


624462 




JMP« 


TEXT 


04475 


000000 


CRI.F 


/ 






04476 


760215 




LAW 


21$ 


04477 


700406 




TLS 




04500 


700401 




TSF 




04501 


604500 




JMP 


i«l 


04502 


544304 




SAp 


■ *2 


04503 


624475 




JMP« 


CRlF 


04504 


760212 




LAW 


212 


04505 


604477 




JMP 


CRL^*2 






/REMOVE TAPE 1 


'ROM PUNCH 


04506 


000000 


REMTXT 


f 






04507 


104473 




JMS 


CRL/ 


04510 


104475 




JMS 


CRL/ 


04511 


204573 




LAC 


REM?AP 


04512 


104624 




JMS 


INOXil 


04513 


104473 




JMS 


CRl? 


04514 


624506 




JMP* 


REMTXT 






/REPLACE TAPE 


in punch 


04015 


000000 


REPTxT 


/ 






04516 


104473 




JMS 


CRL7 


04517 


204603 




LAC 


reptap 


04520 


104624 




JMS 


INOXil 


04521 


624515 




JMP* 


reptxt 






/TYPE TAB 




04522 


000000 


TAB 


f 






04523 


777774 




LAW 


«4 


04524 


044710 




OAC 


TEMPI 


04525 


760240 




LAW 


240 


04526 


104664 




JMS 


TYPE 


04527 


444710 




ISE 


TEMPI 


04530 


604525 




JMP 


■ *3 


04531 


624522 




JMP« 
.EJECT 


TAB 



/type test 
/type good 

/TYPE BAO 



/CR 



/Lf 



PASE 27 



PTP15 



PTP15 







/NO MARK CHARACTER 




04532 


104475 


NOREAO 


JMS 


CRLf 




04533 


204613 




LAC 


NOMARK 




04534 


104624 




JMS 


INQXU 




04535 


740040 




HIT 






04536 


603400 


/TYPE 1 


JMP 
/ 
/ 
DONE 
/ 



RQSKEW 




04537 


000000 


TSTOK 






04540 


104475 




JMS 


CRl[ 




04541 


760304 




LAW 


304 




04942 


104664 




JMS 


TYPE 




04543 


760317 




UAH 


3X7" 




04544 


104664 




JMS 


TYPE 




04545 


760316 




UAH 


316 




04546 


104664 




JMS 


TYPE 




04547 


760305 




LAW 


305 




04550 


104664 




JMS 


TYPE 




04551 


104475 




JMS 


CRLF 




04552 


624537 




JMP* 
/ 


TSTOk 








/ 

/CONSTANTS FOR 


TEST N0, 




04553 


004553 


TSTTVP 


■ 






04554 


305324 




309324 




n t 


04555 


324323 




324323 




/T S 


04556 


316240 




316240 




/Ni 


04557 


256260 




256260 




/,«0 


04560 


240240 




240240 




/SPACE 


04561 


000000 




000000 










/ 

/CONSTANTS FOR 


6000 




04562 


004562 


GOOD 


• 






04563 


317307 




317307 




/OiG 


04564 


304317 




304317 




/DiO 


04565 


240240 




240240 




/SPACE 


04566 


000000 




000000 
/ 










/CONSTANTS FOR 


BAD 




04567 


004567 


BAP 


i 






04570 


302240 




302240 


/B, 




04571 


304301 




304301 


/DiA 




04572 


000000 




000000 
.EJECT 







PAGE 28 



PTP15 



PTP15 







/CONSTANTS FOR 


REMOVE 


TAPE 


04973 


004573 


REMTAP 


/ 
t 






04974 


309322 




305322 




/EiR 


04579 


317315 




317315 




/OtM 


04576 


309726 




305326 




/EiV 


04577 


324240 




324240 




/Ti 


04600 


320301 




320301 




/PiA 


04601 


240305 




240305 




/ iE 


04602 


000000 




000000 
/ 










/ 

/CONSTANTS FOR 

i 


REPL*CE 


TAPE 


04603 


004603 


REPTAP 


i 






04604 


305322 




305322 




/CiR 


04609 


314320 




314320 




/LiP 


04606 


303301 




303301 




/C|A 


04607 


240309 




240305 




/ iE 


04610 


301324 




301324 




/AiT 


04611 


309320 




309320 




/CiP 


04612 


000000 




000000 
/ 










/ 

/CONSTANTS FOR 


NO MARK 


CHAR, 


04613 


004613 


NOHARK 


f 
t 






04614 


317316 




317316 




/0#N 


04615 


319240 




315240 




/Mi 


04616 


322301 




322301 




/RiA 


04617 


240313 




240313 




/ «K 


04620 


310303 




310303 




/HiC 


04621 


322301 




322301 




/RiA 


04622 


000296 




000256 




/ i < 


04623 


000000 




000000 
/ 






04624 


000000 


INOXll 


/ 








04629 


040011 




OAC 


11 




04626 


220011 




LAC* 


11 




04627 


741200 




SNA 






04630 


624624 




JMP* 


INOXll 




04631 


104664 




JMS 


TYPE 




04632 


742020 




RTR 






04633 


742020 




RTR 






04634 


742020 




RTR 






04639 


742020 




RTR 






04636 


740020 




RAR 






04637 


104664 




JMS 


TYPE 




04640 


604626 




JMP 
.EJECT 


INOXll* 


2 



PACE 29 



PTP15 



PTP15 







/SET UP NUMBERS 


TO BE PRINTED 


04641 


000000 


OCTPRT 







04642 


044707 




OAC 


SAVNUM 


04643 


742020 




RTR 




04644 


742020 




RTR 




04649 


742020 




RTR 




04646 


504721 




AND 


(7 


04647 


344734 




TAD 


(260 


04650 


104664 




JMS 


TYPE 


04651 


204707 




LAC 


SAVNUM 


04652 


742020 




RTR 




04653 


740020 




RAR 




04654 


504721 




AND 


<7 


04655 


344734 




TAD 


(260 


04656 


104664 




JMS 


typC 


04657 


204707 




L*C 


SAVNUM 


04660 


504721 




AND 


(7 


04661 


344734 




TAD 


1260 


04662 


104664 




JMS 


TYPE 


04663 


624641 




JMP* 

y 


OCTPRT 






/PRINT 


CHARACTER 


04664 


000000 


TYPE 


f 






04665 


700406 




TLS 




04666 


700401 




TSP 




04667 


604666 




JMP 


.■1 


04670 


624664 




JMP» 


TY« 


04671 


74S217 


RAN* 


743217 




04672 


340221 


RANB 


340221 




04673 


000000 


STORE 







04674 


000000 


BL9T0R 







04675 


000000 


lEOCNT 







04676 


000000 


OATSTR 







04677 


000000 


TSTNO 







04700 


000000 


DATA 







04701 


000000 


blklmt 







04702 


000000 


BLKLN2 







04703 


000000 


chacnt 







04704 


000000 


patcnt 







04705 


000000 


PATERN 







04706 


000000 


SAVOAT 







04707 


000000 


SAVNUM 







04710 


000000 


TEMPI 



.EJECT 





PACE 30 


PTP15 




000000 


047JL1 


100000 »i 


04712 


000400 »L 


04713 


000001 *i 


04714 


000200 *L 


04713 


000377 »L 


04716 


740010 *L 


04717 


740020 »L 


04720 


000376 «L 


04721 


000007 *L 


04722 


007777 «L 


04723 


037777 U 


04724 


000002 »L 


04725 


000003 *L 


04726 


000004 ml 


04727 


000005 *L 


04730 


000006 «L 


04731 


000010 *L 


04732 


000077 »L 


04733 


000011 *L 


04734 


000260 »L 




S1BE*04 



PTP15 



,END 



735 



NO ERROR LINES 



